home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / comms / internet / html-related / envwww09 / www / arexx / background.ged next >
Text File  |  1996-09-14  |  2KB  |  104 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Create empty list */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4. arg TYPE
  5.  
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  10. if (RC ~= 0) then
  11.     exit
  12.  
  13. OPTIONS FAILAT 6                            /* ignore warnings         */
  14. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  15.  
  16. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  17.  
  18. 'FIND FIRST QUIET STRING="<BODY"'
  19.  
  20. if (RC = 0) then do
  21.  
  22.     'GOTO STEP 5'
  23.  
  24.     'QUERY LINE VAR=BODYLINE'
  25.  
  26.     DEFAULT = ""
  27.  
  28.     'FIND NEXT QUIET STRING="BACKGROUND=*""'
  29.  
  30.     if (RC = 0) then do
  31.  
  32.         'QUERY LINE'
  33.  
  34.         if (RESULT = BODYLINE) then do
  35.  
  36.             REPLACE = 'TRUE'
  37.  
  38.             'FIND NEXT STRING="*""'
  39.  
  40.             'RIGHT'
  41.  
  42.             'EXTRACT VAR=DEFAULT LEFT="*"" RIGHT="*""'
  43.         end
  44.         else
  45.             REPLACE = 'FALSE'
  46.     end
  47.     else
  48.         REPLACE = 'FALSE'
  49.  
  50.     'REQUEST STRING TITLE="Background image" BODY="Path/URL pointing to background image (GIF format)" OLD="' || DEFAULT || '" VAR=IMAGE'
  51.  
  52.     if (RC = 0) then do
  53.  
  54.         if (left(IMAGE, 1) = '"') then
  55.             IMAGE = substr(IMAGE, 2)
  56.  
  57.         if (right(IMAGE, 1) = '"') then
  58.             IMAGE = left(IMAGE, length(IMAGE) - 1)
  59.  
  60.         if (REPLACE = 'TRUE') then do
  61.  
  62.             LEN = LENGTH(DEFAULT)
  63.  
  64.             do while (len ~= 0)
  65.  
  66.                 'DEL'
  67.                 LEN = LEN - 1
  68.             end
  69.  
  70.             'TEXT T="' || IMAGE || '"'
  71.  
  72.         end
  73.         else
  74.             'TEXT T=" BACKGROUND=*"' || IMAGE || '*""'
  75.     end
  76. end
  77. else do
  78.  
  79.     'REQUEST BODY="Body tag not found - can not add image|information.||Please create a HTML frame first. Run the|Document Wizard if you need assistance." BUTTON="!WIZARD|_Ok"'
  80.  
  81.     if (RESULT=1) then do
  82.  
  83.         'UNLOCK'
  84.  
  85.         address 'AREXX'
  86.  
  87.         'golded:tools/www/arexx/document.ged'
  88.  
  89.         exit
  90.     end
  91. end
  92.  
  93. /* ---------------------------- END OF YOUR CODE --------------------- */
  94.  
  95. 'UNLOCK' /* VERY important: unlock GUI */
  96. EXIT
  97.  
  98. SYNTAX:
  99.  
  100. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  101. 'UNLOCK'
  102. EXIT
  103.  
  104.